home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
tm480.zip
/
TMEXAM.EXE
/
HELP.TSK
< prev
next >
Wrap
Text File
|
1991-09-10
|
2KB
|
101 lines
; Title : HELP.TSK Last Updated : March 6, 1991
; Author : Steve Johnson - FmP. Version : 1.00
; Purpose : HELP.TSK an example of a help system written in Taskmaster.
; Notes : Use of BOUNCE_BAR form via F1 is interesting
int main_hilite
logical forever
var char,1
var fn,20," HELP"
var fns,2,occurs 7," MEFOAPEXPOSA"
var formid,1
var prev_sel,1,occurs 7
var subfn,20
var time_now,5
vconst cel,55
vconst cep,56
vconst normal,5
end
forms logon.ovr
lookfor help.ovr
if not found
insert fn fn
put "NO_FORMS" ;logon.ovr open already!
stop
fi
if colour
screen 1
put "BOUNCE_BAR" wait 0 noclear ;ready for f1
userline normal "Press any key..."
fi
screen 0
forms help.ovr
until forever
move 0c000h to bbmask
move main_hilite to choice
cursor 1 0 normal cep
userline normal "Main menu: F1=Help, <ESC>=Exit"
put "MAIN_MENU"
move hilite to main_hilite
if choice = 30
stop
fi
if choice = 31
if colour
switch 1
inkey char
switch 0
clear bbdisp
else
forms logon.ovr
put "BOUNCE_BAR"
forms help.ovr
fi
else
userline normal display "menu: <ESC>=Main menu, F1=Help, F2=Clear screen"
move entry hilite of fns to fn
move entry hilite of prev_sel to choice
trim fn
combine fn '-' into subfn
put subfn wait 0 noclear
until choice = 30
move 0e000h to bbmask
put fn
if choice < 30
move hilite to entry main_hilite of prev_sel
move display to formid
combine fn formid into subfn
if subfn = "FOI"
move time to time_now
insert time_now
fi
put subfn wait 0 noclear
clear bbdisp
else
if choice = 32
cursor 2 0 normal cep
move hilite to choice
clear bbdisp
else
if choice = 31
put "HELP" wait 0 noclear
move hilite to choice
clear bbdisp
fi
fi
fi
fi
clear bbdisp
fi
fi
endtask
Forms source kept in separate file HELP.MAC.
This can be re-created by running TMEXAM if deleted.